home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ OEM Info Model.xpl < prev    next >
Text File  |  2001-11-26  |  2KB  |  91 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="4"
  4. "UIPATH 1"="Appearance\OEM Branding"
  5. "NAME"="OEM General"
  6. "VERSION"="2.06"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="OEM Name"
  9. "TEXT 2"="Computer Model"
  10. "TEXT 3"="Support URL"
  11. "TEXT 4"="Local HTML file"
  12. "DESCRIPTION 1"="To see these values, select "Start" | "Settings" | "Control Panel" and click "System"."
  13. "DESCRIPTION 2"="You can create your own computer ;-)."
  14. "DESCRIPTION 3"="NOTICE: "Support URL" and "Local HTML file" require Windows 2000 or above to work properly." 
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19. "COMMENT 2"=" "
  20. "COMMENT 3"="Thanks to CptSiskoX [CptSiskoX@FlashMail.Com] for the Windows 9x part!"
  21. "COMMENT 4"="Thanks to Eniac [star867@earthlink.net] for the "no <Model> text set" bug notice."
  22.  
  23.  
  24. 'Declaration of some constants
  25. sT="General"
  26.  
  27. sI="OEMINFO.INI"
  28. sI=GetWinSysDir & sI 
  29.  
  30.  
  31. 'Called when the Plugin is started
  32. Sub Plugin_Initialize
  33.  s=IniReadValue(si,st,"Manufacturer")
  34.  SetUIElement 1,s
  35.  
  36.  ''Cheating OK... but how cares??!?!?!
  37.  'removed on 2001/05/03 as many users thought we would REGISTER their system to Microsoft... stupiod
  38.  'if IsEmpty(s) then
  39.  ' SetUIElement 1,"Xteq Systems"
  40.  'else 
  41.  ' SetUIElement 1,s
  42.  'end if
  43.  
  44.  s=IniReadValue(si,st,"Model")
  45.  SetUIElement 2,s
  46.  
  47.  s=IniReadValue(si,st,"SupportURL")
  48.  SetUIElement 3,s
  49.  
  50.  s=IniReadValue(si,st,"LocalFile")
  51.  SetUIElement 4,s
  52. End Sub
  53.  
  54. 'Called when the Plugin should validate the Data the user has entered
  55. Sub Plugin_CheckData(ElementIndex)
  56. End Sub
  57.  
  58. 'Called when the Plugin should apply the changes
  59. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  60.  s=GetUIElement(1)
  61.  Call IniWriteValue(si,st,"Manufacturer",s)
  62.  
  63.  s=GetUIElement(2)
  64.  Call IniWriteValue(si,st,"Model",s)
  65.  
  66.  s=GetUIElement(3)
  67.  Call IniWriteValue(si,st,"SupportURL",s)
  68.  
  69.  s=GetUIElement(4)
  70.  Call IniWriteValue(si,st,"LocalFile",s)
  71.  
  72.  
  73.  
  74.  Call CheckFile
  75. End Sub
  76.  
  77. 'Called when the Plugin is about to be removed from memory
  78. Sub Plugin_Terminate
  79. End Sub
  80.  
  81. Sub CheckFile
  82.  bDispWarning1=false
  83.  
  84.  s=IniReadValue(si,st,"Manufacturer")
  85.  If len(s)=0 then bDispWarning1=true
  86.  
  87.  If bDispWarning1=true then
  88.     Call MsgWarning("No <OEM Name> text set, this value is required to have any OEM items displayed. Please set it through the 'General Information' plug-in or your changes will not be visible.")
  89.  end if
  90. End Sub
  91.